0 TP$="":SYS65418:POKE54296,.
1 POKE53281,1:POKE53280,6
2 IFX=0THENX=1:PRINT"[147][144]"SPC(10)"[212]UNING THE PIANO...":LOAD"SID.OBJ",8,1
3 IFX=1THENX=2:LOAD"INPUT ANY.O",8,1
4 SA=780:SX=781:SY=782
5 POKE53280,6:POKE53281,1
6 S$="                                      "
7 TD$=""
10 PRINT"[147]"
20 PRINT"         [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
30 PRINT"         [221][204]OADSTAR PRESENTS[221][155] "
40 PRINT"         [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][155] "
50 PRINT"                             "
60 PRINT:PRINT
70 GOSUB8000
180 PRINT
190 PRINT"         [154][160]    ([195]) 1987"
200 PRINT"[154][160]"
210 PRINT"[160]         [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
220 PRINT"[154][160]         [221] [208][210][197][211][211] [193][206][217] [203][197][217] [221][155] "
230 PRINT"          [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][155][160]"
240 PRINT"                            "
250 PRINT"";
260 POKE198,0:WAIT198,1:POKE198,0:JO=56320
270 NS=6:DIMF$(NS),R$(NS),T$(30):DI=INT(NS/2)
272 SP=1
280 FORX=1TONS:READF$(X),R$(X):NEXT
290 :
291 DATA "[194]LACK/[215]HITE",BLACK WHITE.MUS
293 DATA "[195]LEOPHA",CLEOPHA.MUS
294 DATA "[197]XCELSIOR",EXCELSIOR.MUS
295 DATA "[208]ALM [204]EAF [210]AG",PALM LEAF.MUS
296 DATA "[210]OSEBUD",ROSEBUD.MUS
298 DATA "[198]AVORITE [210]AG",FAVORITE.MUS
300 PRINT"[147]"
302 GOSUB8000
330 :
340 PRINT"  [213]SE [195]URSOR KEYS OR [202]OYSTICK TO MOVE"
342 PRINT"  THE HIGHLIGHT TO THE SONG YOU WANT."
344 PRINT"    [208]RESS [[210][197][212][213][210][206]] OR [198]IREBUTTON TO"
346 PRINT"     SELECT THE HIGHLIGHTED TUNE."
348 PRINT"[144]         [[208]RESS '\' TO EXIT]"
350 :
400 GOSUB1000: REM PLOT TITLES
410 GOSUB2000: REM GET KEY
420 IFSP=NS+1THEN3000: REM PLAY ALL
430 GOSUB4000: REM PLAY TUNE AT SP
440 GOTO300
450 :
1000 REM PLOT TITLES
1005 PRINT""
1010 FORX=1TODI
1020 PRINT"[146] ";:IFX=SPTHENPRINT"[154]";
1030 PRINTF$(X);
1040 PRINT"[146]";:IFX+DI=SPTHENPRINT"[154]";
1050 PRINTSPC(21-LEN(F$(X)))F$(X+DI)
1060 NEXT
1070 PRINT"[146]";:IFSP=NS+1THENPRINT"[154]";
1080 PRINTSPC(14)"[208][204][193][217] [193][204][204]"
1090 RETURN
1094 :
2000 REM GET KEY
2005 K=PEEK(198):J=PEEK(JO)
2010 IFK=0ANDJ=127THEN2005
2020 GETK$
2025 IFK$=CHR$(13)ORJ=111THEN2100
2030 IFK$=""ORJ=125THENSP=SP+1
2040 IFK$="[145]"ORJ=126THENSP=SP-1
2045 IFK$=""ORJ=119THENSP=SP+DI
2050 IFK$="[157]"ORJ=123THENSP=SP-DI
2055 IFK$="\"THEN5000 : REM QUIT
2060 IFSP<1THENSP=1
2070 IFSP>NS+1THENSP=NS+1
2080 GOSUB1000:GOTO2005
2090 :
2100 RETURN
2110 :
3000 REM PLAY ALL
3005 SP=1
3020 F$=R$(SP):GOSUB6000
3030 GOSUB7000
3040 IFFL=0THENSP=SP+1:IFSP<=NSTHEN3020
3050 GOTO300
3060 :
4000 REM PLAY SONG SP
4010 F$=R$(SP)
4020 GOSUB 6000
4030 GOSUB 7000
4040 GOTO300
4050 :
5000 REM QUIT
5010 PRINT"[147]":GOSUB 8000
5020 PRINT"  [144][193]RE YOU SURE YOU WANT TO QUIT [[217]/[206]]?"
5022 POKE198,0:WAIT198,1:GETAG$
5024 IFAG$="Y"ORAG$="[217]"THEN60000
5026 IFAG$="N"ORAG$="[206]"THEN300
5028 GOTO5022
6000 POKESA,1:POKESX,8:POKESY,0:SYS65466
6008 FOR K=1 TO LEN(F$):POKE 584+K,ASC(MID$(F$,K)):NEXT
6010 POKE SA,LEN(F$):POKE SX,73:POKE SY,2:SYS 65469
6012 POKESA,0:POKESX,0:POKESY,32:SYS65493
6014 F$="T."+R$(SP):OPEN2,8,2,F$:GET#2,A$,B$:INPUT#2,NL
6016 FORX=1TONL:SYS828,2,38:T$(X)=TP$+"":NEXT:CLOSE2
6018 RETURN
6020 :
7000 REM PLAY IT
7002 PRINT"[147]":GOSUB8000:GOSUB9000
7010 SYS49435:POKESX,0:POKESY,32:SYS49458:POKE49152,7
7020 IFPEEK(198)=0AND((PEEK(49152)AND7)=7)ANDPEEK(JO)=127THEN7020
7021 IF(PEEK(JO)AND16)=.THENFL=1:GOTO7030
7022 FL=0:IF(PEEK(49152)AND7)<>7THEN7030
7025 GC=0:GETAG$:GC=1:J=PEEK(JO):GOSUB10000
7028 IFFL=1THEN7030
7029 GOTO7020
7030 POKE49152,0
7040 POKE54276,0:POKE54283,0
7050 POKE54290,0:SYS49629
7060 RETURN
7070 :
8000 REM BOXER
8004 PRINT"    [154]                              "
8006 PRINT"                              [154]    [155] "
8008 PRINT"    [154]        [210]AGTIME [202]UKEBOX    [154]   [155] "
8010 PRINT"    [154]   [160]                      [160][154][160]  [155] "
8012 PRINT"    [154]   [160]                       [154]   [155] "
8014 PRINT"    [154]                              [155] "
8016 PRINT"    [154]          [193]LL MUSIC           [155] "
8018 PRINT"    [154]  TRANSCRIBED BY [202]OHN [210]OACHE  [155] "
8020 PRINT"    [154]                              [155] "
8022 PRINT"                                   "
8024 RETURN
9000 PRINT"     [144][195]URSOR KEYS OR JOYSTICK SCROLL"
9001 PRINT"    [208]RESS [\] OR [198][201][210][197][194][213][212][212][207][206] TO EXIT."
9002 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
9003 FORI=1TO6:PRINT"[221]";SPC(38)"[221]";:NEXT
9004 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
9006 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
9007 PRINT"[221]"SPC(38)"[221]";
9008 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
9009 PRINT"[145][145]";SPC(20-LEN(F$(SP))/2);F$(SP);
9010 LP=1:GOTO10050
9020 :
10000 REM DEAL WITH SCROLLING...
10010 IFAG$=""ORJ=125THENLP=LP+1
10020 IFAG$="[145]"ORJ=126THENLP=LP-1
10030 IFAG$="\"THENFL=1:GOTO10100
10040 IFLP>NL-5THENLP=NL-5
10045 IFLP<1THENLP=1
10050 FORX=217TO242:POKEX,128ORPEEK(X):NEXT:PRINTTD$:FORX=LPTOLP+5
10060 PRINT""T$(X)LEFT$(S$,38-LEN(T$(X)))
10070 NEXT
10100 RETURN
60000 REM RETURN
60010 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60020 IFER<>63THENEND
60025 LOAD"HELLO CONNECT",8